home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / atlib.asm < prev    next >
Assembly Source File  |  2000-09-26  |  16KB  |  1,048 lines
  1.  ; *******************************************************************
  2.  ; **                                                               **
  3.  ; **                       ATUtilities Library                     **
  4.  ; **            Copright (C) 1992-1993 by Thomas Dreibholz         **
  5.  ; **                      All rights reserved                      **
  6.  ; **                                                               **
  7.  ; **                         Hauptprogramm                         **
  8.  ; **                                                               **
  9.  ; *******************************************************************
  10.  
  11.  include "exec/types.i"
  12.  include "exec/initializers.i"
  13.  include "exec/libraries.i"
  14.  include "exec/lists.i"
  15.  include "exec/nodes.i"
  16.  include "exec/resident.i"
  17.  include "libraries/dos.i"
  18.  include "exec/alerts.i"
  19.  
  20.  
  21. CALLSYS  MACRO
  22.  jsr _LVO%1(a6)
  23.  endm
  24.  
  25. XLIB  MACRO
  26.  xref _LVO%1
  27.  endm
  28.  
  29.  STRUCTURE ViewLib,LIB_SIZE
  30.   ULONG ml_SysLib
  31.   ULONG ml_DosLib
  32.   ULONG ml_GfxLib
  33.   ULONG ml_IntLib
  34.   ULONG ml_JanusLib
  35.   ULONG ml_IconLib
  36.   ULONG ml_WBLib
  37.   ULONG ml_FontLib
  38.   ULONG ml_OpalFont
  39.   ULONG ml_SegList
  40.   UBYTE ml_Flags
  41.   UBYTE ml_Pad
  42.  LABEL ViewLib_SIZEOF
  43.  
  44.  XLIB OpenLibrary
  45.  XLIB CloseLibrary
  46.  XLIB FreeMem
  47.  XLIB Remove
  48.  XLIB Alert
  49.  XLIB OpenDiskFont
  50.  XLIB CloseFont
  51.  
  52.  public _GetOpalFont
  53.  public _ExitWarning
  54.  public _ErrorRequest
  55.  public _InfoRequest
  56.  public _MultiRequest
  57.  public _CallUtility
  58.  public _CreateUtilityList
  59.  public _DeleteUtilityList
  60.  public _CallUtilityList
  61.  public _CreatePublicHandler
  62.  public _DeletePublicHandler
  63.  public _AllocCommMemory
  64.  public _FreeCommMemory
  65.  public _DrawPBorder
  66.  public _DrawNBorder
  67.  public _DrawPTextBorder
  68.  public _DrawNTextBorder
  69.  public _WriteText
  70.  public _WriteMText
  71.  public _SelectStdFPen
  72.  public _SelectStdBPen
  73.  public _UsePrefs
  74.  public _CreateWindow
  75.  public _DeleteStdWindow
  76.  public _CreateBoolToggleGadget
  77.  public _CreateStrIntGadget
  78.  public _CreateProcess
  79.  public _AvailJanusMem
  80.  public _Utility
  81.  public _UtilityQuiet
  82.  public _Received
  83.  public _InformationBox
  84.  public _LibraryInfo
  85.  public _CreatePrivateHandler
  86.  public _DeletePrivateHandler
  87.  public _ConvertDateStamp
  88.  public _CreateAppItem
  89.  public _DeleteAppItem
  90.  public _ChangeTaskPri
  91.  
  92.  public _Help
  93.  
  94.  public _CreatePublicService
  95.  public _DeletePublicService
  96.  public _DrawMPTextBorder
  97.  public _DrawMNTextBorder
  98.  public _CreatePropGadget
  99.  
  100.  public _BuildMenuStrip
  101.  public _AddMenu
  102.  public _AddItem
  103.  public _AddSubItem
  104.  public _UseMenuStrip
  105.  public _RemoveMenuStrip
  106.  public _GetOpalLine
  107.  public _GetOpalLine450
  108.  public _MacFormat
  109.  public _DisplayPicture
  110.  public _ShowPicture
  111.  public _MouseButton
  112.  public _CreateScreen
  113.  public _BorderHeight
  114.  
  115. Version   equ 38
  116. Revision  equ 1
  117. Pri       equ 0
  118.  
  119. Start:
  120.  moveq.l #0,d0
  121.  rts
  122.  
  123. Resident:
  124.  dc.w RTC_MATCHWORD
  125.  dc.l Resident
  126.  dc.l EndCode
  127.  dc.b RTF_AUTOINIT
  128.  dc.b Version
  129.  dc.b NT_LIBRARY
  130.  dc.b Pri
  131.  dc.l LibName
  132.  dc.l idString
  133.  dc.l Init
  134.  
  135. LibName:    dc.b 'at-utilities.library',0
  136. idString:   dc.b 'AT-Utilities 38.1 (27 Nov 93)',13,10,0
  137. DosName:    dc.b 'dos.library',0
  138. IntName:    dc.b 'intuition.library',0
  139. GfxName:    dc.b 'graphics.library',0
  140. JanusName:  dc.b 'janus.library',0
  141. IconName:   dc.b 'icon.library',0
  142. WBName:     dc.b 'workbench.library',0
  143. FontName:   dc.b 'diskfont.library',0
  144. OpalName:   dc.b 'opal.font',0
  145. OpalDef:
  146.  dc.l OpalName
  147.  dc.w 9
  148.  dc.b 0
  149.  dc.b 2
  150.  even
  151.  
  152. EndCode:
  153. Init:
  154.  dc.l ViewLib_SIZEOF
  155.  dc.l FuncTable
  156.  dc.l DataTable
  157.  dc.l InitRoutine
  158.  
  159. FuncTable:
  160.  dc.l Open
  161.  dc.l Close
  162.  dc.l Expunge
  163.  dc.l Null
  164.  
  165.  dc.l GetOpalFont
  166.  
  167.  dc.l ExitWarning
  168.  dc.l ErrorRequest
  169.  dc.l InfoRequest
  170.  dc.l MultiRequest
  171.  
  172.  dc.l CallUtility
  173.  
  174.  dc.l CreateUtilityList
  175.  dc.l DeleteUtilityList
  176.  dc.l CallUtilityList
  177.  
  178.  dc.l CreatePublicHandler
  179.  dc.l DeletePublicHandler
  180.  
  181.  dc.l AllocCommMemory
  182.  dc.l FreeCommMemory
  183.  
  184.  dc.l DrawPBorder
  185.  dc.l DrawNBorder
  186.  dc.l DrawPTextBorder
  187.  dc.l DrawNTextBorder
  188.  dc.l WriteText
  189.  dc.l SelectStdFPen
  190.  dc.l SelectStdBPen
  191.  
  192.  dc.l UsePrefs
  193.  
  194.  dc.l CreateStdWindow
  195.  dc.l DeleteStdWindow
  196.  dc.l CreateBoolGadget
  197.  dc.l CreateStringGadget
  198.  dc.l CreateNToggleGadget
  199.  dc.l CreateSToggleGadget
  200.  dc.l CreateIntegerGadget
  201.  
  202.  dc.l DrawCPBorder
  203.  dc.l DrawCNBorder
  204.  dc.l DrawCPTextBorder
  205.  dc.l DrawCNTextBorder
  206.  
  207.  dc.l CreateProcess
  208.  dc.l AvailJanusMem
  209.  dc.l Utility
  210.  dc.l Received
  211.  
  212.  dc.l InformationBox
  213.  dc.l LibraryInfo
  214.  
  215.  dc.l CreatePrivateHandler
  216.  dc.l DeletePrivateHandler
  217.  
  218.  dc.l ConvertDateStamp
  219.  dc.l ConvertIntelMotorola
  220.  
  221.  dc.l CreateAppItem
  222.  dc.l DeleteAppItem
  223.  
  224.  dc.l ChangeTaskPri
  225.  
  226.  dc.l Help
  227.  
  228.  dc.l CreateMinGadget
  229.  
  230.  dc.l CreatePublicService
  231.  dc.l DeletePublicService
  232.  
  233.  dc.l UtilityQuiet
  234.  
  235.  dc.l DrawMPTextBorder
  236.  dc.l DrawMNTextBorder
  237.  
  238.  dc.l CreatePropGadget
  239.  dc.l CreateMBoolGadget
  240.  
  241.  dc.l BuildMenuStrip
  242.  dc.l AddMenu
  243.  dc.l AddItem
  244.  dc.l AddSubItem
  245.  dc.l UseMenuStrip
  246.  dc.l RemoveMenuStrip
  247.  
  248.  dc.l _GetOpalLine
  249.  dc.l _GetOpalLine450
  250.  dc.l MacFormat
  251.  
  252.  dc.l DisplayPicture
  253.  dc.l ShowPicture
  254.  dc.l _MouseButton
  255.  
  256.  dc.l ScreenInformationBox
  257.  
  258.  dc.l CreateWindow
  259.  dc.l CreateScreen
  260.  
  261.  dc.l WriteMText
  262.  
  263.  dc.l ExtInformationBox
  264.  
  265.  dc.l BorderHeight
  266.  
  267.  dc.l -1
  268.  
  269. DataTable:
  270.  INITBYTE LH_TYPE,NT_LIBRARY
  271.  INITLONG LN_NAME,LibName
  272.  INITBYTE LIB_FLAGS,LIBF_SUMUSED!LIBF_CHANGED
  273.  INITWORD LIB_VERSION,Version
  274.  INITWORD LIB_REVISION,Revision
  275.  INITLONG LIB_IDSTRING,idString
  276.  dc.l 0
  277.  
  278. InitRoutine:
  279.  move.l a5,-(a7)
  280.  move.l d0,a5
  281.  move.l a6,ml_SysLib(a5)
  282.  move.l a6,_SysBase
  283.  move.l a0,ml_SegList(a5)
  284.  
  285.  lea DosName(pc),a1
  286.  move.l #0,d0
  287.  CALLSYS OpenLibrary
  288.  move.l d0,ml_DosLib(a5)
  289.  move.l d0,_DOSBase
  290.  bne.s Dos_Okay
  291.  clr.l d0
  292.  bra Init_Ende
  293. Dos_Okay:
  294.  
  295.  lea GfxName(pc),a1
  296.  move.l #0,d0
  297.  CALLSYS OpenLibrary
  298.  move.l d0,ml_GfxLib(a5)
  299.  move.l d0,_GfxBase
  300.  bne.s Gfx_Okay
  301.  clr.l d0
  302.  bra Init_Ende
  303. Gfx_Okay:
  304.  
  305.  lea IntName(pc),a1
  306.  move.l #0,d0
  307.  CALLSYS OpenLibrary
  308.  move.l d0,ml_IntLib(a5)
  309.  move.l d0,_IntuitionBase
  310.  bne.s Int_Okay
  311.  clr.l d0
  312.  bra Init_Ende
  313. Int_Okay:
  314.  
  315.  lea JanusName(pc),a1
  316.  move.l #0,d0
  317.  CALLSYS OpenLibrary
  318.  move.l d0,ml_JanusLib(a5)
  319.  move.l d0,_JanusBase
  320.  
  321.  lea WBName(pc),a1
  322.  move.l #0,d0
  323.  CALLSYS OpenLibrary
  324.  move.l d0,ml_WBLib(a5)
  325.  move.l d0,_WorkbenchBase
  326.  
  327.  lea IconName(pc),a1
  328.  move.l #0,d0
  329.  CALLSYS OpenLibrary
  330.  move.l d0,ml_IconLib(a5)
  331.  move.l d0,_IconBase
  332.  
  333.  lea FontName(pc),a1
  334.  move.l #0,d0
  335.  CALLSYS OpenLibrary
  336.  move.l d0,ml_FontLib(a5)
  337.  move.l d0,_DiskfontBase
  338.  tst.l d0
  339.  bne DiskFont_Okay
  340.  
  341.  movem.l d1-d7/a0-a6,-(sp)
  342.  move.l #1,d0
  343.  jsr ErrorRequest(pc)
  344.  movem.l (sp)+,d1-d7/a0-a6
  345.  clr.l d0
  346.  bra Init_Ende
  347.  
  348. DiskFont_Okay:
  349.  movem.l d1-d7/a0-a6,-(sp)
  350.  lea OpalDef(pc),a0
  351.  move.l ml_FontLib(a5),a6
  352.  CALLSYS OpenDiskFont
  353.  movem.l (sp)+,d1-d7/a0-a6
  354.  move.l d0,ml_OpalFont(a5)
  355.  move.l d0,_OpalFont
  356.  tst.l d0
  357.  bne OpalFont_Okay
  358.  
  359.  movem.l d1-d7/a0-a6,-(sp)
  360.  move.l #2,d0
  361.  jsr ErrorRequest(pc)
  362.  movem.l (sp)+,d1-d7/a0-a6
  363.  clr.l d0
  364.  bra Init_Ende
  365.  
  366. OpalFont_Okay:
  367.  move.l a5,d0
  368. Init_Ende:
  369.  move.l (a7)+,a5
  370.  rts
  371.  
  372. Open:
  373.  addq.w #1,LIB_OPENCNT(a6)
  374.  bclr #LIBB_DELEXP,ml_Flags(a6)
  375.  move.l a6,d0
  376.  rts
  377.  
  378. Close:
  379.  clr.l d0
  380.  subq.w #1,LIB_OPENCNT(a6)
  381.  bne.s 1$
  382.  btst #LIBB_DELEXP,ml_Flags(a5)
  383.  beq.s 1$
  384.  bsr Expunge
  385. 1$:
  386.  rts
  387.  
  388. Expunge:
  389.  movem.l d2/a5-a6,-(a7)
  390.  move.l a6,a5
  391.  move.l ml_SysLib(a5),a6
  392.  tst.w LIB_OPENCNT(a5)
  393.  beq.s 1$
  394.  bset #LIBB_DELEXP,ml_Flags(a5)
  395.  clr.l d0
  396.  bra.s Expunge_end
  397. 1$:
  398.  move.l ml_SegList(a5),d2
  399.  move.l a5,a1
  400.  CALLSYS Remove
  401.  move.l ml_DosLib(a5),a1
  402.  CALLSYS CloseLibrary
  403.  move.l ml_IntLib(a5),a1
  404.  CALLSYS CloseLibrary
  405.  move.l a6,-(sp)
  406.  move.l ml_GfxLib(a5),a6
  407.  move.l ml_OpalFont(a5),a1
  408.  CALLSYS CloseFont
  409.  move.l (sp)+,a6
  410.  move.l ml_GfxLib(a5),a1
  411.  CALLSYS CloseLibrary
  412.  move.l ml_FontLib(a5),a1
  413.  CALLSYS CloseLibrary
  414.  clr.l d0
  415.  move.l a5,a1
  416.  move.w LIB_NEGSIZE(a5),d0
  417.  sub.l d0,a1
  418.  add.w LIB_POSSIZE(a5),d0
  419.  CALLSYS FreeMem
  420.  move.l d2,d0
  421. Expunge_end:
  422.  movem.l (a7)+,d2/a5-a6
  423.  rts
  424.  
  425. Null:
  426.  moveq #0,d0
  427.  rts
  428.  
  429. GetOpalFont:
  430.  jsr _GetOpalFont(pc)
  431.  rts
  432.  
  433. ExitWarning:
  434.  jsr _ExitWarning(pc)
  435.  rts
  436.  
  437. ErrorRequest:
  438.  move.l d0,-(sp)
  439.  jsr _ErrorRequest(pc)
  440.  addq.w #4,sp
  441.  rts
  442.  
  443. InfoRequest:
  444.  move.l a0,-(sp)
  445.  jsr _InfoRequest(pc)
  446.  addq.w #4,sp
  447.  rts
  448.  
  449. MultiRequest:
  450.  move.l a3,-(sp)
  451.  move.l a2,-(sp)
  452.  move.l a1,-(sp)
  453.  move.l a0,-(sp)
  454.  jsr _MultiRequest(pc)
  455.  add.w #16,sp
  456.  rts
  457.  
  458. CallUtility:
  459.  move.l a0,-(sp)
  460.  jsr _CallUtility(pc)
  461.  addq.w #4,sp
  462.  rts
  463.  
  464. CreateUtilityList:
  465.  jsr _CreateUtilityList(pc)
  466.  rts
  467.  
  468. DeleteUtilityList:
  469.  jsr _DeleteUtilityList(pc)
  470.  rts
  471.  
  472. CallUtilityList:
  473.  move.l d0,-(sp)
  474.  jsr _CallUtilityList(pc)
  475.  addq.w #4,sp
  476.  rts
  477.  
  478. CreatePublicHandler:
  479.  move.l d0,-(sp)
  480.  jsr _CreatePublicHandler(pc)
  481.  addq.w #4,sp
  482.  rts
  483.  
  484. DeletePublicHandler:
  485.  move.l a0,-(sp)
  486.  jsr _DeletePublicHandler(pc)
  487.  addq.w #4,sp
  488.  rts
  489.  
  490. AllocCommMemory:
  491.  jsr _AllocCommMemory(pc)
  492.  rts
  493.  
  494. FreeCommMemory:
  495.  jsr _FreeCommMemory(pc)
  496.  rts
  497.  
  498. DrawPBorder:
  499.  move.l #0,-(sp)
  500.  move.l d3,-(sp)
  501.  move.l d2,-(sp)
  502.  move.l d1,-(sp)
  503.  move.l d0,-(sp)
  504.  move.l a0,-(sp)
  505.  jsr _DrawPBorder(pc)
  506.  add.w #24,sp
  507.  rts
  508.  
  509. DrawNBorder:
  510.  move.l #0,-(sp)
  511.  move.l d3,-(sp)
  512.  move.l d2,-(sp)
  513.  move.l d1,-(sp)
  514.  move.l d0,-(sp)
  515.  move.l a0,-(sp)
  516.  jsr _DrawNBorder(pc)
  517.  add.w #24,sp
  518.  rts
  519.  
  520. DrawPTextBorder:
  521.  move.l #0,-(sp)
  522.  move.l a1,-(sp)
  523.  move.l d3,-(sp)
  524.  move.l d2,-(sp)
  525.  move.l d1,-(sp)
  526.  move.l d0,-(sp)
  527.  move.l a0,-(sp)
  528.  jsr _DrawPTextBorder(pc)
  529.  add.w #28,sp
  530.  rts
  531.  
  532. DrawNTextBorder:
  533.  move.l #0,-(sp)
  534.  move.l a1,-(sp)
  535.  move.l d3,-(sp)
  536.  move.l d2,-(sp)
  537.  move.l d1,-(sp)
  538.  move.l d0,-(sp)
  539.  move.l a0,-(sp)
  540.  jsr _DrawNTextBorder(pc)
  541.  add.w #28,sp
  542.  rts
  543.  
  544. WriteText:
  545.  move.l a1,-(sp)
  546.  move.l d1,-(sp)
  547.  move.l d0,-(sp)
  548.  move.l a0,-(sp)
  549.  jsr _WriteText(pc)
  550.  add.w #16,sp
  551.  rts
  552.  
  553. SelectStdFPen:
  554.  move.l a0,-(sp)
  555.  jsr _SelectStdFPen(pc)
  556.  add.w #4,sp
  557.  rts
  558.  
  559. SelectStdBPen:
  560.  move.l a0,-(sp)
  561.  jsr _SelectStdBPen(pc)
  562.  add.w #4,sp
  563.  rts
  564.  
  565. UsePrefs:
  566.  jsr _UsePrefs(pc)
  567.  rts
  568.  
  569. CreateStdWindow:
  570.  move.l d5,-(sp)
  571.  move.l d4,-(sp)
  572.  move.l d3,-(sp)
  573.  move.l d2,-(sp)
  574.  move.l d1,-(sp)
  575.  move.l d0,-(sp)
  576.  move.l a0,-(sp)
  577.  move.l #0,-(sp)
  578.  jsr _CreateWindow(pc)
  579.  add.w #32,sp
  580.  rts
  581.  
  582. DeleteStdWindow:
  583.  move.l a0,-(sp)
  584.  jsr _DeleteStdWindow(pc)
  585.  add.w #4,sp
  586.  rts
  587.  
  588. CreateBoolGadget:
  589.  move.l d4,-(sp)
  590.  move.l a1,-(sp)
  591.  move.l d3,-(sp)
  592.  move.l d2,-(sp)
  593.  move.l d1,-(sp)
  594.  move.l d0,-(sp)
  595.  move.l a0,-(sp)
  596.  move.l #0,-(sp)
  597.  jsr _CreateBoolToggleGadget(pc)
  598.  add.w #32,sp
  599.  rts
  600.  
  601. CreateMinGadget:
  602.  move.l d4,-(sp)
  603.  move.l #0,-(sp)
  604.  move.l d3,-(sp)
  605.  move.l d2,-(sp)
  606.  move.l d1,-(sp)
  607.  move.l d0,-(sp)
  608.  move.l a0,-(sp)
  609.  move.l #4,-(sp)
  610.  jsr _CreateBoolToggleGadget(pc)
  611.  add.w #32,sp
  612.  rts
  613.  
  614. CreateStringGadget:
  615.  move.l d5,-(sp)
  616.  move.l d4,-(sp)
  617.  move.l a1,-(sp)
  618.  move.l d3,-(sp)
  619.  move.l d2,-(sp)
  620.  move.l d1,-(sp)
  621.  move.l d0,-(sp)
  622.  move.l a0,-(sp)
  623.  move.l #0,-(sp)
  624.  jsr _CreateStrIntGadget(pc)
  625.  add.w #36,sp
  626.  rts
  627.  
  628. CreateNToggleGadget:
  629.  move.l d4,-(sp)
  630.  move.l a1,-(sp)
  631.  move.l d3,-(sp)
  632.  move.l d2,-(sp)
  633.  move.l d1,-(sp)
  634.  move.l d0,-(sp)
  635.  move.l a0,-(sp)
  636.  move.l #1,-(sp)
  637.  jsr _CreateBoolToggleGadget(pc)
  638.  add.w #32,sp
  639.  rts
  640.  
  641. CreateSToggleGadget:
  642.  move.l d4,-(sp)
  643.  move.l a1,-(sp)
  644.  move.l d3,-(sp)
  645.  move.l d2,-(sp)
  646.  move.l d1,-(sp)
  647.  move.l d0,-(sp)
  648.  move.l a0,-(sp)
  649.  move.l #2,-(sp)
  650.  jsr _CreateBoolToggleGadget(pc)
  651.  add.w #32,sp
  652.  rts
  653.  
  654. CreateIntegerGadget:
  655.  move.l d5,-(sp)
  656.  move.l d4,-(sp)
  657.  move.l a1,-(sp)
  658.  move.l d3,-(sp)
  659.  move.l d2,-(sp)
  660.  move.l d1,-(sp)
  661.  move.l d0,-(sp)
  662.  move.l a0,-(sp)
  663.  move.l #1,-(sp)
  664.  jsr _CreateStrIntGadget(pc)
  665.  add.w #36,sp
  666.  rts
  667.  
  668. DrawCPBorder:
  669.  move.l #1,-(sp)
  670.  move.l d3,-(sp)
  671.  move.l d2,-(sp)
  672.  move.l d1,-(sp)
  673.  move.l d0,-(sp)
  674.  move.l a0,-(sp)
  675.  jsr _DrawPBorder(pc)
  676.  add.w #24,sp
  677.  rts
  678.  
  679. DrawCNBorder:
  680.  move.l #1,-(sp)
  681.  move.l d3,-(sp)
  682.  move.l d2,-(sp)
  683.  move.l d1,-(sp)
  684.  move.l d0,-(sp)
  685.  move.l a0,-(sp)
  686.  jsr _DrawNBorder(pc)
  687.  add.w #24,sp
  688.  rts
  689.  
  690. DrawCPTextBorder:
  691.  move.l #1,-(sp)
  692.  move.l a1,-(sp)
  693.  move.l d3,-(sp)
  694.  move.l d2,-(sp)
  695.  move.l d1,-(sp)
  696.  move.l d0,-(sp)
  697.  move.l a0,-(sp)
  698.  jsr _DrawPTextBorder(pc)
  699.  add.w #28,sp
  700.  rts
  701.  
  702. DrawCNTextBorder:
  703.  move.l #1,-(sp)
  704.  move.l a1,-(sp)
  705.  move.l d3,-(sp)
  706.  move.l d2,-(sp)
  707.  move.l d1,-(sp)
  708.  move.l d0,-(sp)
  709.  move.l a0,-(sp)
  710.  jsr _DrawNTextBorder(pc)
  711.  add.w #28,sp
  712.  rts
  713.  
  714. CreateProcess:
  715.  move.l d1,-(sp)
  716.  move.l a1,-(sp)
  717.  move.l d0,-(sp)
  718.  move.l a0,-(sp)
  719.  jsr _CreateProcess(pc)
  720.  add.w #16,sp
  721.  rts
  722.  
  723. AvailJanusMem:
  724.  move.l d0,-(sp)
  725.  jsr _AvailJanusMem(pc)
  726.  addq.w #4,sp
  727.  rts
  728.  
  729. Utility:
  730.  move.l d0,-(sp)
  731.  move.l a0,-(sp)
  732.  jsr _Utility(pc)
  733.  addq.w #8,sp
  734.  rts
  735.  
  736. UtilityQuiet:
  737.  move.l d0,-(sp)
  738.  move.l a0,-(sp)
  739.  jsr _UtilityQuiet(pc)
  740.  addq.w #8,sp
  741.  rts
  742.  
  743. Received:
  744.  move.l a0,-(sp)
  745.  jsr _Received(pc)
  746.  addq.w #4,sp
  747.  rts
  748.  
  749. ExtInformationBox:
  750.  move.l a2,-(sp)
  751.  move.l d4,-(sp)
  752.  move.l d3,-(sp)
  753.  move.l d2,-(sp)
  754.  move.l d1,-(sp)
  755.  move.l d0,-(sp)
  756.  move.l a0,-(sp)
  757.  move.l a1,-(sp)
  758.  jsr _InformationBox(pc)
  759.  add.w #32,sp
  760.  rts
  761.  
  762. ScreenInformationBox:
  763.  move.l #0,-(sp)
  764.  move.l d4,-(sp)
  765.  move.l d3,-(sp)
  766.  move.l d2,-(sp)
  767.  move.l d1,-(sp)
  768.  move.l d0,-(sp)
  769.  move.l a0,-(sp)
  770.  move.l a1,-(sp)
  771.  jsr _InformationBox(pc)
  772.  add.w #32,sp
  773.  rts
  774.  
  775. InformationBox:
  776.  move.l #0,-(sp)
  777.  move.l d4,-(sp)
  778.  move.l d3,-(sp)
  779.  move.l d2,-(sp)
  780.  move.l d1,-(sp)
  781.  move.l d0,-(sp)
  782.  move.l a0,-(sp)
  783.  move.l #0,-(sp)
  784.  jsr _InformationBox(pc)
  785.  add.w #32,sp
  786.  rts
  787.  
  788. LibraryInfo:
  789.  jsr _LibraryInfo(pc)
  790.  rts
  791.  
  792. CreatePrivateHandler:
  793.  move.l d1,-(sp)
  794.  move.l d0,-(sp)
  795.  jsr _CreatePrivateHandler(pc)
  796.  addq.w #8,sp
  797.  rts
  798.  
  799. DeletePrivateHandler:
  800.  move.l a0,-(sp)
  801.  jsr _DeletePrivateHandler(pc)
  802.  addq.w #4,sp
  803.  rts
  804.  
  805.  
  806. ConvertDateStamp:
  807.  move.l a1,-(sp)
  808.  move.l a0,-(sp)
  809.  jsr _ConvertDateStamp(pc)
  810.  addq.w #8,sp
  811.  rts
  812.  
  813.  
  814. ConvertIntelMotorola:
  815.  swap d0
  816.  rts
  817.  
  818.  
  819. CreateAppItem:
  820.  move.l a0,-(sp)
  821.  jsr _CreateAppItem(pc)
  822.  addq.w #4,sp
  823.  rts
  824.  
  825.  
  826. DeleteAppItem:
  827.  move.l a0,-(sp)
  828.  jsr _DeleteAppItem(pc)
  829.  addq.w #4,sp
  830.  rts
  831.  
  832.  
  833. ChangeTaskPri:
  834.  move.l d0,-(sp)
  835.  jsr _ChangeTaskPri(pc)
  836.  addq.w #4,sp
  837.  rts
  838.  
  839.  
  840. Help:
  841.  move.l d0,-(sp)
  842.  move.l a0,-(sp)
  843.  jsr _Help(pc)
  844.  addq.w #8,sp
  845.  rts
  846.  
  847.  
  848. CreatePublicService:
  849.  move.l d2,-(sp)
  850.  move.l d1,-(sp)
  851.  move.l d0,-(sp)
  852.  jsr _CreatePublicService(pc)
  853.  add.w #12,sp
  854.  rts
  855.  
  856.  
  857. DeletePublicService:
  858.  move.l a0,-(sp)
  859.  jsr _DeletePublicService(pc)
  860.  addq.w #4,sp
  861.  rts
  862.  
  863. DrawMPTextBorder:
  864.  move.l a1,-(sp)
  865.  move.l d3,-(sp)
  866.  move.l d2,-(sp)
  867.  move.l d1,-(sp)
  868.  move.l d0,-(sp)
  869.  move.l a0,-(sp)
  870.  jsr _DrawMPTextBorder(pc)
  871.  add.w #24,sp
  872.  rts
  873.  
  874. DrawMNTextBorder:
  875.  move.l a1,-(sp)
  876.  move.l d3,-(sp)
  877.  move.l d2,-(sp)
  878.  move.l d1,-(sp)
  879.  move.l d0,-(sp)
  880.  move.l a0,-(sp)
  881.  jsr _DrawMNTextBorder(pc)
  882.  add.w #24,sp
  883.  rts
  884.  
  885. CreatePropGadget:
  886.  move.l a1,-(sp)
  887.  move.l d7,-(sp)
  888.  move.l d6,-(sp)
  889.  move.l d5,-(sp)
  890.  move.l d4,-(sp)
  891.  move.l d3,-(sp)
  892.  move.l d2,-(sp)
  893.  move.l d1,-(sp)
  894.  move.l d0,-(sp)
  895.  move.l a0,-(sp)
  896.  jsr _CreatePropGadget(pc)
  897.  add.w #40,sp
  898.  rts
  899.  
  900. CreateMBoolGadget:
  901.  move.l d4,-(sp)
  902.  move.l a1,-(sp)
  903.  move.l d3,-(sp)
  904.  move.l d2,-(sp)
  905.  move.l d1,-(sp)
  906.  move.l d0,-(sp)
  907.  move.l a0,-(sp)
  908.  move.l #5,-(sp)
  909.  jsr _CreateBoolToggleGadget(pc)
  910.  add.w #32,sp
  911.  rts
  912.  
  913. BuildMenuStrip:
  914.  move.l d1,-(sp)
  915.  move.l d0,-(sp)
  916.  move.l a0,-(sp)
  917.  jsr _BuildMenuStrip(pc)
  918.  add.w #12,sp
  919.  rts
  920.  
  921. AddMenu:
  922.  move.l d1,-(sp)
  923.  move.l d0,-(sp)
  924.  move.l a1,-(sp)
  925.  move.l a0,-(sp)
  926.  jsr _AddMenu(pc)
  927.  add.w #16,sp
  928.  rts
  929.  
  930. AddItem:
  931.  move.l d3,-(sp)
  932.  move.l d2,-(sp)
  933.  move.l d1,-(sp)
  934.  move.l d0,-(sp)
  935.  move.l a1,-(sp)
  936.  move.l a0,-(sp)
  937.  jsr _AddItem(pc)
  938.  add.w #24,sp
  939.  rts
  940.  
  941. AddSubItem:
  942.  move.l d3,-(sp)
  943.  move.l d2,-(sp)
  944.  move.l d1,-(sp)
  945.  move.l d0,-(sp)
  946.  move.l a1,-(sp)
  947.  move.l a0,-(sp)
  948.  jsr _AddSubItem(pc)
  949.  add.w #24,sp
  950.  rts
  951.  
  952. UseMenuStrip:
  953.  move.l a0,-(sp)
  954.  jsr _UseMenuStrip(pc)
  955.  addq.w #4,sp
  956.  rts
  957.  
  958. RemoveMenuStrip:
  959.  move.l d0,-(sp)
  960.  move.l a0,-(sp)
  961.  jsr _RemoveMenuStrip(pc)
  962.  addq.w #8,sp
  963.  rts
  964.  
  965. MacFormat:
  966.  move.l d0,-(sp)
  967.  move.l a1,-(sp)
  968.  move.l a0,-(sp)
  969.  jsr _MacFormat(pc)
  970.  add.w #12,sp
  971.  rts
  972.  
  973. DisplayPicture:
  974.  move.l d0,-(sp)
  975.  move.l a0,-(sp)
  976.  jsr _DisplayPicture(pc)
  977.  addq.w #8,sp
  978.  rts
  979.  
  980. ShowPicture:
  981.  move.l a0,-(sp)
  982.  jsr _ShowPicture(pc)
  983.  addq.w #4,sp
  984.  rts
  985.  
  986. CreateWindow:
  987.  move.l d5,-(sp)
  988.  move.l d4,-(sp)
  989.  move.l d3,-(sp)
  990.  move.l d2,-(sp)
  991.  move.l d1,-(sp)
  992.  move.l d0,-(sp)
  993.  move.l a0,-(sp)
  994.  move.l a1,-(sp)
  995.  jsr _CreateWindow(pc)
  996.  add.w #32,sp
  997.  rts
  998.  
  999. CreateScreen:
  1000.  move.l d3,-(sp)
  1001.  move.l d2,-(sp)
  1002.  move.l d1,-(sp)
  1003.  move.l d0,-(sp)
  1004.  move.l a0,-(sp)
  1005.  jsr _CreateScreen(pc)
  1006.  add.w #20,sp
  1007.  rts
  1008.  
  1009. WriteMText:
  1010.  move.l a1,-(sp)
  1011.  move.l d2,-(sp)
  1012.  move.l d1,-(sp)
  1013.  move.l d0,-(sp)
  1014.  move.l a0,-(sp)
  1015.  jsr _WriteMText(pc)
  1016.  add.w #20,sp
  1017.  rts
  1018.  
  1019.  
  1020. BorderHeight:
  1021.  jsr _BorderHeight(pc)
  1022.  rts
  1023.  
  1024.  dseg
  1025.  even
  1026.  
  1027.  public _DOSBase
  1028.  public _IntuitionBase
  1029.  public _GfxBase
  1030.  public _JanusBase
  1031.  public _SysBase
  1032.  public _IconBase
  1033.  public _DiskfontBase
  1034.  public _OpalFont
  1035.  
  1036.  global _DOSBase,4
  1037.  global _IntuitionBase,4
  1038.  global _GfxBase,4
  1039.  global _JanusBase,4
  1040.  global _SysBase,4
  1041.  global _IconBase,4
  1042.  global _WorkbenchBase,4
  1043.  global _DiskfontBase,4
  1044.  global _OpalFont,4
  1045.  
  1046.  END
  1047.  
  1048.